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BEGINX STANDARD SYSTEM SYSTEM-STAT I ST I CS FILE ANALYSIS. 
COMMENT! * TITLE* B55Q0/B570Q MARK XIV SYSTEM RELEASE 
*FT|„E Tnt SYH8fii/STATS3 TAPE ID? SfMBQL.y/r U.FQOn 



* 



THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 
AND IS NOT TO BE REPRODUCED/ USED* OR DISCLOSED * 
EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 



* WRITTEN AUTHORISATION UF ThE PATENT DIVISION OF 

* BURROUGHS CORPORATION* DETROIT* MlChlG^N 48232 



OCOOOlOO 
OOOOOUO 

000004-4-1— 
00000112 
00000113 
_0Q_00QU4 _ 



FILE PRINT 



* COPYRIGHT 

* AA320206 
4(2*15), 



(C) 1971* 1972 
AA386657 



BURROUGHS CORPORATION 



0OO0OH5 
00000H6 
00000112. 



* 



DISK DISK SERIAL 
CARD (2*10); 



00000U8 
00000119 
00000200 



(2*60*60)* 



00000300 
00000400 
■00000500 



% »» ....... ......«•.. ... ........ FORMATS' ••»•»»••«'*••'•••»■*■*««•»•»•»••'« »«««i«»i«>f.oo00b600 

00000700 
FORMAT F(A6," ■"i».g,"l«iAt«Tgl»tFfl>n. nnOoOgnn 

FS(A6*" *"*2(F6.2* w 3i",Al*lQ* , % ")*F4.1), 00000900 



HD CX8*"* OF 
"SEG/T/Q"), 



I/0"*X3*"# I/0"*X5*":t OF CHAR'SX1*"T0TAL SEGS"*X3* 



DW("AVG, DISK DELAY s ",F7.3," SECS.">* 
TDC"TOTAL DISK DELAY s "*F7,3,» MINS,"), 
H(A6,X?,F6.2*"X"). 

TMCTIME SINCE LAST HaLT/LUAD IS "*12*" HOURS 
12*" MINUTES"), LCSTATISTICS FROM ",I2*":"*I2 



AND 
"UN 



« , 



r n "» i2 *" > 'M2," on "»n, ,, / , ) t aCAi < i.x 2 * 2 cr6 .2 *"'* 



N(/"N0RMALIZED , V)*8I(//" BUSY 

DISKHDR( M DISK ANO NQN-ECM I/O ACTIVITY")* 
AUXMFMinHDR("AUvMFM T/fl ATTTVTTY »")» 



*0* 



IDLE"/)* 



SYSTEMHORC'SYSTEM ACTIVITY -")* 

I0HDR1("DISK 1/0-")* 

IDHDR2f f)THER T/fl-")* 



I0HDR3("T0TAL I/O-")* 

UNDERL I NE ( "•«""-•••»>•"---«••••---«■»«) , 

TQTaLHDR("TQTaL(DISK AND aUXMeM ) 



I/O ACTIVITY -"); 



ARRAY A[OI61)*LQGCO» 1 ] *SUMSTAT [0» 60 i i 

REAL T0TAL*SEGTQT,Y*I,STARTIME*ENDTIME*AP2; 

real otherio*tqtio*disktotal; 



boolean runtotal'segs,endtog*beglntug; 
label eqf*doagain, 



STREAM PROCEDURE SCANFILE(L0G )i 
BEGIN REAL L0CAL2* LOCALl t 
' SIt«LOGJ 0H»L0C LOCALU 



DIiaDl+1* 

7 C IF SC»"/" THEN DS« 

Sl»«SUi; DI?» Dl4i; 



= L I T " " ELSE DSJ* CHR); 



DSl«7 cwa; 
SII-LOC LQCAL1I 
&S»^16 chr; 



dii«log; 



end; 



BEGIN 
AP2»*A[ABS(P2)j; 

IF P2 LSS Q THEN 



00001000 
.££0g_ijLQjQ_ 



00001200 

00001300 
00001400 



00001500 

00001600 
-0-03-04^00- 



00001800 
00001900 
00002000 



00002100 
00002200 
00002300 



00002400 
00002500 
00002600 



00002700 
•00002800 
Q0002900. 



00003000 
00003100 
0Q OO 3 20Q 



00003300 

00003400 

■QQQQ350Q 



00003600 
00003700 
00003800 



00003900 
00004000 
00004100 



00004200 
00004300 
00004400 



PROCEDURE PP(P1,P2*P3);VALUE P1*I»2*P3; REAL P1*P2*P3* 



00004500 

'00004600 

00004700 



BEGIN P2»»ABS(P2); ACP23 t « AP2 , 1 1 * 233 ENQ ELSE 



00004800 
00004900 

00005000 



*r 



AtP23l«AP2,C2«l2a3; 
IF ACP2D NEQ THEN 
IF P3* THFN 



rtRITE(PRINT*G'Pl#ArP2]/TOTALxl00*(TOrAL-ACP2Ji/TaTAUxlOO) 

ELSE 

WRITE(PRINTjH>P1*A[P23/TOTALx1O0)j 



00U03100 
00005200 
OOOUb3QJ3_ 



00005400 
00005500 
OQOOSftQO 



12 
13 
14 

115 



A[P2]««AP2; 

end; 



PROCEDURE R(Rl#R2); 
BEGIN REAL AR2; 
AR2I»ACABSCR2)3J 



VALUE Rl*R2; REAL Rl*R2,* 



00005700 

00005800 

■ 0QOQ5 9 Q, 



IF R2 LSS THEN BEGIN 
A[R23 «»AR2,C24J243; 
IF ACR23 N EQ THEN 



R2»=ABS(R2); ACR2]»aAR2.tl»23] EnO ELSE 



00006000 
00006100 

0Q006?Q0 



BEGIN IF RUNTOTAL THEN At 03 ***C 3-ACR2 3; 
IF RUNTOTAL THEN A£ 303 ! »AC 303- ACR2+303 ; 
TF S FGS T HE N 



00006300 
00006400 
QQU06 500 



00006600 
00006700 
00006800 
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BEGIN 

WRITECPRlNT*FS'Rl,CA[R2J/T01ALxl0O),","*A[R2:i, 
(ArR2t3Q1/SLGTUTx1,nQ)^"f "fAtR2 + 303 > CAtR2 + TQ]/ A iR2] 3. 3 J . 



END ELSE 
WRITE(PRlNT,F»Rl*A[R23/TOTAL><lOO#Y»ACR23); 
ENDJ 



00006900 
00007000 
00007^00 



00007200 
00007300 
00007400 



A[R23»=AR2; 

end; 



DEFINE 

P(Pl,P2)8PP(Pl#P2,<J}#, 

q(0l < Q2t03)»RtQl»Q3); ACQ 3 3 l«TQT AL' 



00007500 

00007600 

'00007700 



ACQ33J R(Q 2^ Q3);#f 



00007800 
00007900 
0Q0Q8QQQ 



BK*WRITE(PRINT)*; 



MAIN &PDY 



00008100 

00008200 

•0OOQ83OQ 



REA0CCARD#2»L0GC*3); 
SCANFTIECLQGU 



00008400 
00008500 

00008600 



fill disk with logc 3 ,logc 1 3 ; 

begintogi=true; 

doagain: 



00008700 
00008800 
00008900 



39 



REAO CDISK#60,AC*3)CECF3; 
IF AC03 * REALCNOT FALSE) 



THEN 



00009000 
00009100 
Q Q0Q 92QQ 



BEGIN 

FOR I»»0 STEP 1 

A[ 2 9 3 »8 ENPTIME; 



UNTIL 59 DO All35=SUMSTATC n; 



00009300 
00009400 

000095 00 



43 

44 



endtogi»true; 

END ELSE 
BEGIN 



00009600 
00009700 
00009800 



50 



*d_ 



IF BEGINTOG THEN BEGIN STAR TI ME : =A[ 47 ] ; BEGI NTQG : «FALSE ENO/ 
FOR I«*Q STEP 1 UNTIL 27 DO SUMST AT C 1 3 : =SbMST AT C 1 3 + At 1 3 ; 
FOR ULEJO STEP 1 UNTIL 46 DO SUMSTAT E 1 3 : »SUMS1 ATI I 3 + AC I ] J 



FOR I»«48 STEP 1 UNTIL 
SUMSTATC28]J«A[283; 
END) ' 



59 DO SUMSTATCI3»»SUMS1ATCI3+Atn; 



00009900 

oooioooo 
O Q O lQl Q Q 



00010200 
00010300 
Q 1 Q 4 



BK; WRITECP8INTCPAGE3); 
HRITF(PRINT*TM»AC13 div 



216000/ ACl]/^600 MOD 60)> 



IF ENDTOG THEN 

WRITE(PRINT#L»STARTIME DIV 216000* STARTIME/ 

3600 MOD 60*AC283»AC293 DIV 21 6000* AC293/3600 MOO 6Q*AC2833 



00010500 
00010600 
00010700 



00010800 
00010900 
OOQllQOO 



• • 
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3 



10 



ELSE 

WRITE(PRINT>L>A[47] DlV 2 1 6000* A U7 J / 3o00 MOD t>U> 

A[283 # A [ 29 3 DTV 2 . 1 6 QQ C > A [ ?y 1/ 3 6QO Hub 6Q*A L?6l)i 



ACO] *»MAXCAt03*AC23); 
D ISKTOTALJ "TOTAL «»AC03; 
_&£Jil£LT_J_J*AO£JJ- 



TQl IGJsAC0] + (0THERI0« = AC5 8J,Cl!23J + AL583 t [2'i:2AJ + 
A[S9],[1I23]+A[59].[24:24]); 
_BJLL 



WR I TEC PRINT*DW» At 32] /T0TAL/60)i 

WRlTE(PRlNT#TD#AC323/3600); 

BK* 



WRITE(PRINT'DISKHDR); 
HRITE(PRINT#UN0.ERLINE); 
-BJii 
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WRITE (PRINT*HO)J 

BKJ 

SEGS;«TRUE ; RfTOT AL h >0W SEGSi»rALS£; 



Yi»%"; 

QCDKA 



jlqkb.. 



Jlr 2 ) i 



BKi 

RCEU 

R("EU 



RC'EU 

RC'EU 

_BJli 



.4); 
Lgfl) J 



•>5); 

•#-5); 



WRITE(PR1NT*I0H0R1); 

8K> 

Rf'lQ 1_"»^5)8 



RC'IO 

R ( " I n 
R(" I Q 



%36)J 

%-35); 



bk; 

WRlTE(PRINTM0HDR2); 

bk; 



total:=otherio; 

RC'IO 1 "*58); 

R( "in 2 %59); 



RC"IO 
RCI0 

bk; 



w »-58); 
"f 59); 



write(print#i0hdr3); 

tctal»=totio; 

bk; 



A [583, [24 1 243 » «A [58 3 .[24*243 +A[ 353 ,[24 » 243; 
A[59],[24I24]I»A[59J,[24I24J+AC36],[24I24]J 
A[ 583. [H 233 f»A[ 583 t[l»233*A[ 353. C 1*233; 



A[593 ,[1*233I = A[593 
R("I0 1 'S58); 
R("IO 2 w *59)i 



[1«233+A[363 , [U233 



R<"10 
R( n IO 



"#•58); 
«,«59); 



totali=aco3; 
bk; 

QC"NORMAL"» f, C0NTRL , S9); 



bk; 

runtotali«truej 
sessistrue; 



oooinoo 

000U200 
-QMlO&flL 



00011400 
00011500 

nooiiftoo. 



000X1700 

ocoiieoo 

■ OOQU900- 



00012000 
00012100 
00012200 



00012300 

00012400 

.0_OOJL25jOjO. 

00012600 

00012700 

Q0 0l2fi 00 



00012900 
00013000 

-oofliiiiia. 



00013200 

00013300 

-00013400- 



00013500 

00013600 

. QQ0 13 7 -OQ-. 



00013800 
00013900 
00 1 400 4- 



00014100 
00014200 
QQQ143QQ 



00014400 

00014500 

JifiOlMOJL 



00014700 
00014800 
,0J10_L4^M. 



00015000 
00015100 
00015200 
00015300 
00015400 
00015500 
00015600 
00015700 
00015800 
00015900 
00016000 
00016100 



00016200 
00016300 
Q Q016 4Q Q 



00016500 
00016600 
00016 700 



00016800 
00016900 
00017000 



h 
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RCESP Mil) 
RCDIRECT M *12); 
R( W HEADER W »25); 



RCNAMES 

R("L0G 
RC'LIBRX. 



00017100 
00017200 
QQ0173QQ 



♦S24); 
M #18)j 



bk; 

RCCODE 
_BJii 



00017400 

00017500 
00017600 



m'mo); 



RC'CODE 
RCDATA 

mi 



00017700 
00017800 
00017900- 



M »20); 
w »22); 



RC'FILES "#27); 

runtotal?sfalse; 

J&&L 



00018000 
00018100 
00 18 200 



RCOTHER "»0); 

segsi«false; 
bk; 



WRlTECPRINTfAUXMEMIQhDR)/ 
WR 1 TE ( PR I NT> UNDERLINE)/ 

_BJii 



writecprint#h0); 
bk ; 

TOT AL* *AC 37 3; SEGTQT I sA C49 Ukt 5 1 ] i 



R("AUXMEM"#37); 
SEtiSlsTRUE; 

R^'CQ D E A",l 9 )j , 



RCDATA A w #2l); 

segsi«false; 

A[ni«TQTAL« s TOTAL»OISKTQTAL; 



AtO]»BDISKTOTAL; 

bk; 
write(print»tqtalhdr); 



S£GTQ7»»SEGTuT*AC5Q]*AC52J; 



bk; 

RCTOTAL 
RCD TSK 



M #n; 



rc"auxmem w #37); 

segs:=true; 

RCCODE A"#19); 



RCOATA A", 21); 

segsi«false; 
.ML 



WRITE(PRINT»SYSTEMHDR); 
WRITE (PR I NT* UNDERLINE); 

bk; 



WRITE(PRINT#BI); 

T0TAL>*At3]; 

P( W SYSTEM"»14)1 



FOR Yi«l STEP 1 UNTIL 2 DO 
BEGIN 
PC'AUXMEM'S 44); 



pcoka %7>; pcdkb M *8); pcboth 

PC M NRM Pl",-6); P( M NKM P2"»3D; 
PP( W N0LAP1"»39 # 1); PP("N0LAP2"»'3V»1); 



M7); P( M PR0C1 "*b)i 



PP<"CT0LAP",43,1); 
IF Y».i THEN 
BEGIN 



WRITE(PRINT.N); 
TOTAL»»Atl43; 
END,! 



00018300 
00018400 
0QQ18 50 
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- O O QmOQ . 
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00019300 

.oooiaAna. 



00019500 
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JIOJUSZOD. 



00019800 
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00020000 



00020100 
00020200 
QQ02 3 ftfl. 



00020400 
00020500 
Q0Q_2_QAflD~ 



00020700 
00020800 
00020900 



00021000 
00021100 
QQ02120Q 
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00021400 
OQ0215QQ 



00021600 
00021700 
0QO2U O - 



00021900 
00022000 
00022100 
00022200 
00022300 
0Q022400 



00022500 
00022600 
00022700 



00022800 
00022900 
00023000 



_&> 



• • 



w 



end; 
if endtog 

BEGI-N— 



THEN GO TO EOF ELSE 



ENDTIME*sA[29]; 

go to dqagain; 

end; 



go to doagain; 
eof» end. 
end;end « 



LAST CAHD QA ftCHDIMG TAPE 
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